home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Unreleased / (c)aaa.d64 / storm warnings.c (.txt) < prev    next >
Commodore BASIC  |  2009-02-07  |  328b  |  11 lines
  1. 10 IFA=0THENA=1:PRINT"[147]":POKE53280,0:POKE53281,0:LOAD"S/W 01",8,8
  2. 15 IFA=1THENA=2:LOAD"S/W 02",8,8
  3. 20 IFA=2THENA=3:LOAD"S/W 03",8,8
  4. 25 IFA=3THENA=4:PRINT"[147]":LOAD"S/W 04",8,8
  5. 30 IFA=4THENA=5:POKE53280,4:POKE53281,3:LOAD"S/W 05",8,8
  6. 35 IFA=5THENA=6:LOAD"S/W 06",8,8
  7. 40 IFA=6THENA=7:LOAD"S/W 07",8,8
  8. 50 POKE198,4
  9. 55 PRINT"[159]LOAD"CHR$(34)"S/W 08"CHR$(34)",8:";
  10. 60 POKE631,13:POKE632,82:POKE633,117:POKE634,13
  11.